home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
HiSoftBasicD2.adf
/
rotate.bas
< prev
next >
Wrap
BASIC Source File
|
1989-05-17
|
235b
|
17 lines
' a silly example program, showing the extended PTAB statement
pi=4*ATN(1)
i=-2*pi
c=1
COLOR c
DO
i=i+0.15
IF i>pi*2 THEN i=i-pi*2
INCR c
IF c>3 THEN c=1
COLOR c
PRINT PTAB(300+200*COS(i),90+80*SIN(i));"HiSoft BASIC";
LOOP